home *** CD-ROM | disk | FTP | other *** search
Text File | 1990-06-14 | 1.5 KB | 67 lines | [TEXT/MPS ] |
- BLANKS ON
- STRING ASIS
- CASE OFF
-
- INCLUDE 'Traps.a'
-
- IMPORT READCOMPLETION1:CODE
- IMPORT READCOMPLETION2:CODE
- IMPORT WRITECOMPLETION1:CODE
- IMPORT WRITECOMPLETION2:CODE
-
- SetupGlob PROC EXPORT
- EXPORT globals:CODE
-
- lea globals(pc), A0
- move.l A5, (A0)
- rts
- globals:
- DC.L 0 ; pointer to our globals goes here!
- ENDP
-
- ReadCompletionGlue1 PROC EXPORT
- move.l a5, -(a7) ; save A5
- move.l globals(pc), a5 ; set up our A5
- move.l 8(a7), -(a7) ; get the param
- bsr READCOMPLETION1 ; call the routine
- move.l (a7)+, a5 ; restore A5
- move.l (a7)+, a0 ; get return addr
- addq #4, a7 ; pop parameter
- jmp (a0) ; and return
- ENDP
-
- ReadCompletionGlue2 PROC EXPORT
- move.l a5, -(a7) ; save A5
- move.l globals(pc), a5 ; set up our A5
- move.l 8(a7), -(a7) ; get the param
- bsr READCOMPLETION2 ; call the routine
- move.l (a7)+, a5 ; restore A5
- move.l (a7)+, a0 ; get return addr
- addq #4, a7 ; pop parameter
- jmp (a0) ; and return
- ENDP
-
- WriteCompletionGlue1 PROC EXPORT
- move.l a5, -(a7) ; save A5
- move.l globals(pc), a5 ; set up our A5
- move.l 8(a7), -(a7) ; get the param
- bsr WRITECOMPLETION1 ; call the routine
- move.l (a7)+, a5 ; restore A5
- move.l (a7)+, a0 ; get return addr
- addq #4, a7 ; pop parameter
- jmp (a0) ; and return
- ENDP
-
- WriteCompletionGlue2 PROC EXPORT
- move.l a5, -(a7) ; save A5
- move.l globals(pc), a5 ; set up our A5
- move.l 8(a7), -(a7) ; get the param
- bsr WRITECOMPLETION2 ; call the routine
- move.l (a7)+, a5 ; restore A5
- move.l (a7)+, a0 ; get return addr
- addq #4, a7 ; pop parameter
- jmp (a0) ; and return
- ENDP
-
- END
-